1 Imports System.Data.OleDb
2 Imports System.Math
3 Public Class Barrowing
4 Dim ConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=CLInventory.accdb; Persist Security Info=False"
5 Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
6 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
7 Label7.Text = TimeOfDay
8 End Sub
9
10 Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
11 Label8.Text = DateAndTime.Today
12 End Sub
13
14 Private Sub Barrowing_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
15
16 Timer1.Enabled = True
17 Timer2.Enabled = True
18
19 If Main_Form.ListView1.SelectedIndices.Count > 0 Then
20 Dim ItemNo As Integer = Main_Form.ListView1.SelectedIndices(0)
21 Label12.Text = Main_Form.ListView1.Items(ItemNo).SubItems(0).Text
22 TextBox3.Text = Main_Form.ListView1.Items(ItemNo).SubItems(1).Text
23 Label10.Text = Main_Form.ListView1.Items(ItemNo).SubItems(2).Text
24 Else
25 End If
26 End Sub
27
28 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
29 If TextBox4.Text >= Label10.Text Then
30 MsgBox("You Reach the Maximum Number of this ITEM.. Please Try to Decrease Your Barrowed/Reserved ITEMS", MsgBoxStyle.Exclamation)
31 Else
32 Try
33
34 Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
35 OleDbConn.Open()
36
37 Dim MyOledbCommand As OleDbCommand = New OleDbCommand()
38
39 MyOledbCommand.CommandText = "Insert Into List_of_Barrowed " & "(Name_of_Student_,Department_,Position_,Name_of_Items_,No_of_Items_,Date_Time_) " _
40 & "Values (" _
41 & "'" & TextBox1.Text & "', " _
42 & "'" & TextBox2.Text & "', " _
43 & "'" & TextBox5.Text & "', " _
44 & "'" & TextBox3.Text & "', " _
45 & "'" & TextBox4.Text & "', " _
46 & "'" & Label7.Text & ", " & Label8.Text & "')"
47
48 MyOledbCommand.Connection = OleDbConn
49 MyOledbCommand.ExecuteNonQuery()
50 OleDbConn.Close()
51 MsgBox("Items Successfully Barrowed")
52
53 Catch err As System.Exception
54 MsgBox(err, MsgBoxStyle.Information, "Naay Sayup")
55 End Try
56 editing()
57 Main_Form.refreshing_utility()
58 Close()
59 End If
60
61 End Sub
62
63 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
64 If TextBox4.Text >= Label10.Text Then
65 MsgBox("You Reach the Maximum Number of this ITEM.. Please Try to Decrease Your Barrowed/Reserved ITEMS", MsgBoxStyle.Exclamation)
66 Else
67
68 Try
69
70 Dim OleDbConn As OleDbConnection = New OleDbConnection(ConnString)
71 OleDbConn.Open()
72
73 Dim MyOledbCommand As OleDbCommand = New OleDbCommand()
74
75 MyOledbCommand.CommandText = "Insert Into List_of_Reserved " & "(Name_of_Student_,Department_,Position_,Name_of_Items_,No_of_Items_,Date_Time_) " _
76 & "Values (" _
77 & "'" & TextBox1.Text & "', " _
78 & "'" & TextBox2.Text & "', " _
79 & "'" & TextBox5.Text & "', " _
80 & "'" & TextBox3.Text & "', " _
81 & "'" & TextBox4.Text & "', " _
82 & "'" & Label7.Text & ", " & Label8.Text & "')"
83
84 MyOledbCommand.Connection = OleDbConn
85 MyOledbCommand.ExecuteNonQuery()
86 OleDbConn.Close()
87 MsgBox("Items Successfully Reserved")
88
89
90 Catch err As System.Exception
91 MsgBox(err, MsgBoxStyle.Information, "Naay Sayup")
92 End Try
93 editing()
94 Main_Form.refreshing_utility()
95 Close()
96 End If
97
98 End Sub
99
100 Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
101 Label11.Text = Label10.Text - TextBox4.Text
102 End Sub
103 Sub editing()
104 Dim id As String = Trim(Label12.Text)
105 Try
106 OleDbConn.Open()
107 Dim cmd2 As New OleDb.OleDbCommand("UPDATE Item_list SET No_of_Item=M0 WHERE (ID=M1)", OleDbConn)
108 cmd2.Parameters.AddWithValue("M0", Label11.Text)
109 cmd2.Parameters.AddWithValue("M1", id)
110 cmd2.ExecuteNonQuery()
111
112 Catch ex As Exception
113 MsgBox(ex.Message)
114 Finally
115 OleDbConn.Close()
116 End Try
117 End Sub
118
119 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
120 Close()
121 End Sub
122 End Class